/* Copyright (c) 2009-2010, Sean A.O. Harney <sharney3@gmail.com> */

#include "omf.h"

// for now eval() can only evaluate a new function definition,

//expects STRING, is evaluated as file
EXPR_P builtin_func_eval(EXPR_P expr)
{
    if (expr->type != EXPR_LEAF || expr->u.leaf.type != LEAF_STRING)
	fatal_error_println
	    ("OMF built-in function eval() expects STRING expr as argument.");

    char *str = expr->u.leaf.val.string_val;

    debug1_printf
	("built-in function eval() evaluating program string \"%s\"\n",
	 str);
    parse_init_str(str);
    return NULL;
}
